library(stringr)
library(dplyr)


permutation <- function(d, ss){
  str_flatten(sample(d, size=ss), collapse = ",")
}

omm <- c('x', 'x', 'x', 'o', 'o')

``

df <- data.frame(Iter = 1:1000,
                 Arrg = replicate(1000, permutation(omm, 5))
)

df %>% group_by(Arrg) %>% count()


t(replicate(20, sample(6, size=5, replace=FALSE)))

rolls <- sample(6, size=5, replace=TRUE)

m <- table(rolls)

max(table(rolls))
